home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 6.dxr / 00033_show-hide on msg.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  771 b   |  29 lines
  1. property spriteNum, Pactie, Pmsg, Pdefault
  2.  
  3. on beginSprite me
  4.   if Pdefault = #aan then
  5.     sprite(spriteNum).visible = 1
  6.   else
  7.     sprite(spriteNum).visible = 0
  8.   end if
  9. end
  10.  
  11. on uit me
  12.   sprite(spriteNum).visible = 0
  13. end
  14.  
  15. on aan me, Msg
  16.   sendSprite(spriteNum, #reset)
  17.   if Msg = Pmsg then
  18.     sprite(spriteNum).visible = 1
  19.   end if
  20. end
  21.  
  22. on getPropertyDescriptionList me
  23.   propertyList = [:]
  24.   setaProp(propertyList, #Pdefault, [#comment: "what is the default state", #format: #text, #default: #uit, #range: [#aan, #uit]])
  25.   setaProp(propertyList, #Pactie, [#comment: "kies een actie", #format: #text, #default: #Hide, #range: [#Show, #Hide]])
  26.   setaProp(propertyList, #Pmsg, [#comment: "react on what msg?", #format: #text, #default: "msg"])
  27.   return propertyList
  28. end
  29.